100 Plus Great Games 2/100PLUSV2.BIN/games/AgnesSorel.dxr/00059_hot spot.ls

Text File | 2002-01-25 | 1.7 KB | 36 lines

on beginSprite me
  global tableau
  sprite(me.spriteNum).blendLevel = 0
  sprite(me.spriteNum).loc = tableau[string(sprite(me.spriteNum).startFrame).symbol].cards[tableau[string(sprite(me.spriteNum).startFrame).symbol].cards.count].location
end

on mouseEnter me
  global equalvalue2, hotti, tableau
  if sprite(me.spriteNum).visible <> 0 then
    if (the clickOn <> 0) and (the clickOn <> me.spriteNum) then
      if sprite(the clickOn).moveableSprite = 1 then
        if sprite(the clickOn).visible = 1 then
          if tableau[string(sprite(me.spriteNum).startFrame).symbol].cards.count > 0 then
            hotti = tableau[string(sprite(me.spriteNum).startFrame).symbol].cards[tableau[string(sprite(me.spriteNum).startFrame).symbol].cards.count].spnum + 1
            if objectp(tableau[string(sprite(the clickOn).startFrame).symbol].cards[string(the clickOn).symbol]) then
              if tableau[string(sprite(the clickOn).startFrame).symbol].cards[string(the clickOn).symbol].suitcolor = tableau[string(sprite(me.spriteNum).startFrame).symbol].cards[tableau[string(sprite(me.spriteNum).startFrame).symbol].cards.count].suitcolor then
                if tableau[string(sprite(the clickOn).startFrame).symbol].cards[string(the clickOn).symbol].rankvalue = (tableau[string(sprite(me.spriteNum).startFrame).symbol].cards[tableau[string(sprite(me.spriteNum).startFrame).symbol].cards.count].rankvalue - 1) then
                  equalvalue2 = 1
                else
                  equalvalue2 = 0
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on mouseLeave me
  global equalvalue2, hotti
  hotti = 0
  equalvalue2 = 0
end